home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / osg.zip / OSGDEMO.BAS < prev    next >
BASIC Source File  |  1990-12-10  |  12KB  |  262 lines
  1. ' Input definition created by OSGBASIC version 1.01
  2. ' (c) Copyright 1987, Project X Development Group
  3. ' (c) Copyright 1987, Roy Barrow, Doug Steen
  4. ' Code may only be distributed on registration of OSG
  5. ' (215) 922-2557 for details.
  6.  
  7.  
  8.        ' CALL osgdemsh     '  %%%%%% This line was manually inserted
  9.  
  10.   i.opt% = 1  '  Make the first input active
  11.  
  12.   DO
  13.  
  14.  ' SELECT CASE i.opt%
  15.  
  16.  ' CASE 1
  17. '************************************************
  18. '*                                              *
  19. '*   Input definition for name$ - Name of user  *
  20. '*                                              *
  21. '************************************************
  22.  
  23.     work$ = name$
  24.             CALL txt.input(0, 0, 1, 1, 1, 1, 1, 40, name$, 14, 6, 7, 0, 0, ek%) _
  25.                                                                                                                                                                                                                                                                                                                                                                 _
  26. ' Exit key pressed
  27.  
  28.     CALL trim(name$) ' Trim the string of leading and trailing blanks
  29.  
  30.     SELECT CASE ek%
  31.     CASE 3, 4, 5, 6, 7
  32.         i.opt% = i.opt% + 1
  33.         CASE ELSE
  34.     END SELECT
  35. '---------------------------------------------------------------------------
  36.   CASE 2
  37. '***************************************************
  38. '*                                                 *
  39. '*   Input definition for addr1$ - Address line 1  *
  40. '*                                                 *
  41. '***************************************************
  42.  
  43.     work$ = addr1$
  44.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr1$, 14, 7, 7, 0, 0, ek%) _
  45.                                                                                                                                                                                                                                                                                                                                                                 _
  46. ' Exit key pressed
  47.  
  48.     CALL trim(addr1$) ' Trim the string of leading and trailing blanks
  49.  
  50.     SELECT CASE ek%
  51.     CASE 1, 2
  52.         i.opt% = i.opt% - 1
  53.     CASE 3, 4, 5, 6, 7
  54.         i.opt% = i.opt% + 1
  55.         CASE ELSE
  56.     END SELECT
  57. '---------------------------------------------------------------------------
  58.   CASE 3
  59. '***************************************************
  60. '*                                                 *
  61. '*   Input definition for addr2$ - Address line 2  *
  62. '*                                                 *
  63. '***************************************************
  64.  
  65.     work$ = addr2$
  66.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr2$, 14, 8, 7, 0, 0, ek%) _
  67.                                                                                                                                                                                                                                                                                                                                                                 _
  68. ' Exit key pressed
  69.  
  70.     CALL trim(addr2$) ' Trim the string of leading and trailing blanks
  71.  
  72.     SELECT CASE ek%
  73.     CASE 1, 2
  74.         i.opt% = i.opt% - 1
  75.     CASE 3, 4, 5, 6, 7
  76.         i.opt% = i.opt% + 1
  77.         CASE ELSE
  78.     END SELECT
  79. '---------------------------------------------------------------------------
  80.   CASE 4
  81. '***************************************************
  82. '*                                                 *
  83. '*   Input definition for addr3$ - Address line 3  *
  84. '*                                                 *
  85. '***************************************************
  86.  
  87.     work$ = addr3$
  88.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr3$, 14, 9, 7, 0, 0, ek%) _
  89.                                                                                                                                                                                                                                                                                                                                                                 _
  90. ' Exit key pressed
  91.  
  92.     CALL trim(addr3$) ' Trim the string of leading and trailing blanks
  93.  
  94.     SELECT CASE ek%
  95.     CASE 1, 2
  96.         i.opt% = i.opt% - 1
  97.     CASE 3, 4, 5, 6, 7
  98.         i.opt% = i.opt% + 1
  99.         CASE ELSE
  100.     END SELECT
  101. '---------------------------------------------------------------------------
  102.   CASE 5
  103. '***************************************************
  104. '*                                                 *
  105. '*   Input definition for addr4$ - Address line 4  *
  106. '*                                                 *
  107. '***************************************************
  108.  
  109.     work$ = addr4$
  110.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr4$, 14, 10, 7, 0, 0, ek%) _
  111.                                                                                                                                                                                                                                                                                                                                                                 _
  112. ' Exit key pressed
  113.  
  114.     CALL trim(addr4$) ' Trim the string of leading and trailing blanks
  115.  
  116.     SELECT CASE ek%
  117.     CASE 1, 2
  118.         i.opt% = i.opt% - 1
  119.     CASE 3, 4, 5, 6, 7
  120.         i.opt% = i.opt% + 1
  121.         CASE ELSE
  122.     END SELECT
  123. '---------------------------------------------------------------------------
  124.   CASE 6
  125. '*********************************************************
  126. '*                                                       *
  127. '*   Input definition for telephone$ - Telephone Number  *
  128. '*                                                       *
  129. '*********************************************************
  130.  
  131.     work$ = telephone$
  132.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 20, telephone$, 14, 11, 7, 0, 0, ek%) _
  133.                                                                                                                                                                                                                                                                                                                                                                 _
  134. ' Exit key pressed
  135.  
  136.     CALL trim(telephone$) ' Trim the string of leading and trailing blanks
  137.  
  138.     SELECT CASE ek%
  139.     CASE 1, 2
  140.         i.opt% = i.opt% - 1
  141.     CASE 3, 4, 5, 6, 7
  142.         i.opt% = i.opt% + 1
  143.         CASE ELSE
  144.     END SELECT
  145. '---------------------------------------------------------------------------
  146.   CASE 7
  147. '**************************************************
  148. '*                                                *
  149. '*   Input definition for note1$ - Notes, line 1  *
  150. '*                                                *
  151. '**************************************************
  152.  
  153.     work$ = note1$
  154.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note1$, 13, 16, 7, 0, 0, ek%) _
  155.                                                                                                                                                                                                                                                                                                                                                                 _
  156. ' Exit key pressed
  157.  
  158.     CALL trim(note1$) ' Trim the string of leading and trailing blanks
  159.  
  160.     SELECT CASE ek%
  161.     CASE 1, 2
  162.         i.opt% = i.opt% - 1
  163.     CASE 3, 4, 5, 6, 7
  164.         i.opt% = i.opt% + 1
  165.         CASE ELSE
  166.     END SELECT
  167. '---------------------------------------------------------------------------
  168.   CASE 8
  169. '**************************************************
  170. '*                                                *
  171. '*   Input definition for note2$ - Notes, line 2  *
  172. '*                                                *
  173. '**************************************************
  174.  
  175.     work$ = note2$
  176.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note2$, 13, 17, 7, 0, 0, ek%) _
  177.                                                                                                                                                                                                                                                                                                                                                                 _
  178. ' Exit key pressed
  179.  
  180.     CALL trim(note2$) ' Trim the string of leading and trailing blanks
  181.  
  182.     SELECT CASE ek%
  183.     CASE 1, 2
  184.         i.opt% = i.opt% - 1
  185.     CASE 3, 4, 5, 6, 7
  186.         i.opt% = i.opt% + 1
  187.         CASE ELSE
  188.     END SELECT
  189. '---------------------------------------------------------------------------
  190.   CASE 9
  191. '**************************************************
  192. '*                                                *
  193. '*   Input definition for note3$ - Notes, line 3  *
  194. '*                                                *
  195. '**************************************************
  196.  
  197.     work$ = note3$
  198.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note3$, 13, 18, 7, 0, 0, ek%) _
  199.                                                                                                                                                                                                                                                                                                                                                                 _
  200. ' Exit key pressed
  201.  
  202.     CALL trim(note3$) ' Trim the string of leading and trailing blanks
  203.  
  204.     SELECT CASE ek%
  205.     CASE 1, 2
  206.         i.opt% = i.opt% - 1
  207.     CASE 3, 4, 5, 6, 7
  208.         i.opt% = i.opt% + 1
  209.         CASE ELSE
  210.     END SELECT
  211. '---------------------------------------------------------------------------
  212.   CASE 10
  213. '**************************************************
  214. '*                                                *
  215. '*   Input definition for note4$ - Notes, line 4  *
  216. '*                                                *
  217. '**************************************************
  218.  
  219.     work$ = note4$
  220.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note4$, 13, 19, 7, 0, 0, ek%) _
  221.                                                                                                                                                                                                                                                                                                                                                                 _
  222. ' Exit key pressed
  223.  
  224.     CALL trim(note4$) ' Trim the string of leading and trailing blanks
  225.  
  226.     SELECT CASE ek%
  227.     CASE 1, 2
  228.         i.opt% = i.opt% - 1
  229.     CASE 3, 4, 5, 6, 7
  230.         i.opt% = i.opt% + 1
  231.         CASE ELSE
  232.     END SELECT
  233. '---------------------------------------------------------------------------
  234.   CASE 11
  235. '**************************************************
  236. '*                                                *
  237. '*   Input definition for note5$ - Notes, line 5  *
  238. '*                                                *
  239. '**************************************************
  240.  
  241.     work$ = note5$
  242.             CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note5$, 13, 20, 7, 0, 0, ek%) _
  243.                                                                                                                                                                                                                                                                                                                                                                 _
  244. ' Exit key pressed
  245.  
  246.     CALL trim(note5$) ' Trim the string of leading and trailing blanks
  247.  
  248.     SELECT CASE ek%
  249.     CASE 1, 2
  250.         i.opt% = i.opt% - 1
  251.     CASE 3, 4, 5, 6, 7
  252.         EXIT DO        '  %%%%%, and this line was inserted manually
  253.         CASE ELSE
  254.     END SELECT
  255. '---------------------------------------------------------------------------
  256.   CASE ELSE
  257.   END SELECT
  258. LOOP
  259.  
  260.             
  261.  
  262.